home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 60
/
Digital_Talk_60_2003-04-27_Digital_Talk_de_Side_B.d64
/
kahate's noter 6
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
135 lines
2 print"[147]":rem -khtnoter06 090303-
3 printtab(15)"khtnoter06[146]":print"[154] bitte warten -- dateien werden geladen"
12 ifpeek(56)=149then26
14 f=peek(187)+256*peek(188)
16 ifpeek(f)<>77andpeek(f+1)<>67andpeek(f+2)<>50thenload"mc1.obj",8,1
18 poke55,0:poke56,149:clr:load"mc2.obj",8,1
26 io=38912:cr=io+6:da=io+12:de=io+15:vl=io+24:tr=39888:ma=tr:fs=tr+3
68 pi=50960:wi=pi+3:pu=pi+6:ei=50176:qu=52240:ch=53039:gc=38144
104 sysfs:sysma:sysch:syspi:printchr$(14)chr$(8)
120 poke2,0:rem n$="commodore.cod,p,r"
122 n$="khtpr.cod,p,r":sysvl,n$,1792,1792+256
142 al$="qwertyuiopasdfghjklzxcvbnm[209][215][197][210][212][217][213][201][207][208][193][211][196][198][199][200][202][203][204][218][216][195][214][194][206][205]"
144 al$=al$+":;@[][186],./<>?=*^[192]1234567890+-\[169]!#$%&'() "+chr$(34)
152 e1$=chr$(13)+chr$(17)+chr$(145)+chr$(133)+chr$(134)+chr$(137)+chr$(138)
154 e2$=chr$(13)+chr$(137):fa=72:dimv$(fa):sz=1
172 a$(1)=" ([198]1)=[211]eite vor ([198]5)=[204][207][193][196]-[196]atei"
174 a$(2)=" ([198]2)=[211]eite zur@ck ([198]6)=[211][193][214][197]-[196]atei"
176 a$(3)=" ([198]7)=[196]rucken ([198]8)=[211]chliessen"
180 b$(1)="[196]ateiname>"
184 c$(1)=" ([198]1)=[193]lles ([198]2)=[211]chliessen"
186 c$(2)=" ([198]3)=[206]ur diese [211]eite"
232 print"[147]":poke53280,5:poke53281,9:poke646,7
234 printtab(7)"[200]allo, liebe [195]64er-freaks!"
235 printtab(7)"[129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
236 print"[158][196]ieses ist ein kleines selbsterdachtes"
237 print"[206]oter-[208]rogramm, das sich verschiedener"
238 print"[205][195]-[210]outinen bedient, die in einem [194]uch"
240 print"von [205]arkt&[212]echnik zum [195]64/[195]128 unter"
242 print"dem [212]itel '[208][210][207][198][201]-[212][207][207][204][211]' ver:ffentlicht"
244 print"wurden."
250 print"[196]ieses [208]rogramm ist also absolut kein"
252 print"[208]rofiprogramm< es verwendet lediglich"
254 print"professionelle [193]ssembler-[210]outinen."
260 print"[214]orteil des [208]rogramms>"
262 print"[194]ei entsprechender [193]npassung des ange-"
263 print"schlossenen [196]ruckers kann der [212]ext der"
264 print"[206]achrichten leicht ausgedruckt werden.":gosub902
272 print"[147][158][208]rogramm-[193]nfang mit '[193][158]'"
274 print"[129]([201]ntro-[194]ildschirm)
275 [153]"sys(NULL)tart des (NULL)oters mit '(NULL)sys'"
276 [153]"for(valdit-(NULL)creen leer)
277 print"[158][218]um [212]ext/[205]enues mit '[198]1[158]'"
278 print"[215]enn n:tig zur@ck mit '[198]2[158]'"
280 r$="":getr$:ifr$=""then280
282 ifr$<>"a"andr$<>"s"andr$<>chr$(133)andr$<>chr$(137)then280
284 on-(r$="a")-2*(r$="s")goto232,302
286 on-(r$=chr$(133))-2*(r$=chr$(137))goto290,232
290 on-(pg%<>1)goto302:goto402
302 la$="":nr%=1:mo=0:i=1:as=0:pg%=1:e$=e1$:gosub362
308 fori=0tofa:v$(i)="":next:goto402
340 gosub380:sysei,0,i,40,v$(i+as),al$,e$,la$,nr%,mo,e%
350 ifla$=chr$(17)then370
351 ifla$=chr$(145)andi>1theni=i-1
352 ifla$=chr$(29)andi<18theni=i+1:nr%=1
353 ifla$=chr$(157)andi>1theni=i-1:nr%=40
354 ifla$=chr$(133)thengosub362:goto510
355 ifla$=chr$(134)theni=18:goto340
357 ifla$=chr$(137)thengosub362:goto376
358 ifla$=chr$(138)theni=1:goto340
360 ifla$=chr$(13)then370
361 goto340
362 l1$=la$:n1%=nr%:i1=i:return
370 ifi>17andas>53then374
372 i=i+1
373 ifi>18andas<54thenas=as+18:i1=1:goto402
374 nr%=1:goto340
376 as=0:i1=1:nr%=1:goto272
380 z1$=str$(i):ifval(z1$)>9then384
382 z1$=" "+z1$
384 z$=mid$(z1$,2)
386 sys cr,36,0:print"[155]"z$"[158]":return
390 sz=int(as/18+1):s1$=str$(sz):s$=mid$(s1$,2)
396 syscr,28,0:print"[155]"s$"[158]":return
402 gosub914:syscr,0,1:j=1+as
412 fori=jtoj+17:k=len(v$(i-1)):ifk<40then416
414 print"[145]";
416 printv$(i):next
420 la$=l1$:nr%=n1%:e$=e1$:i=i1:goto340
442 syspu,9,19,29,3,0:printchr$(18);:syswi,9,19,29,3,b$(1)
450 v$="":e$=e2$:la$="":nr%=0:sysei,20,20,16,v$,al$,e$,la$,nr%,1,e$
456 syspu,9,19,29,3,1:syspu,1,19,38,5,1
460 printchr$(146)chr$(145):syscr,9,20:return
472 syspu,7,19,31,4,0:printchr$(18);:syswi,7,19,31,4,c$(1)
480 r4%=0:r$="":getr$:ifr$=""then480
482 ifr$=chr$(133)thenr4%=1:goto486
483 ifr$=chr$(134)thenr4%=2:goto486
484 ifr$=chr$(137)thenr4%=3:goto486
485 goto480
486 syspu,7,19,31,4,1:syspu,1,19,38,5,1:printchr$(146)chr$(145):goto702
510 syspu,1,19,38,5,0:printchr$(18);:syswi,1,19,38,5,a$(1)
530 r$="":getr$:ifr$=""then530
533 ifr$=chr$(133)thenr%=1:goto550
534 ifr$=chr$(134)thenr%=7:goto550
535 ifr$=chr$(135)thenr%=4:goto552
536 ifr$=chr$(136)thenr%=3:goto554
537 ifr$=chr$(137)thenr%=2:goto550
538 ifr$=chr$(138)thenr%=8:goto550
539 ifr$=chr$(139)thenr%=5:goto552
540 ifr$=chr$(140)thenr%=6:goto550
544 goto530
550 sys pu,1,19,38,5,1
552 printchr$(146);
554 onr%goto560,570,472,622,602,402,580,590
560 ifas<54thenas=as+18:goto402
562 goto340
570 ifas>17thenas=as-18:goto402
572 goto340
580 i=18:goto340
590 i=1:goto340
602 gosub442:ifla$=chr$(137)then402
604 print"[211][193][214][197]> "v$:open1,8,15,"s:"+v$:close1:v$=v$+",s,w"
610 open2,8,2,v$:sysda,2,72,v$(1):close2:goto402
622 gosub442:ifla$=chr$(137)then402
624 print"[204][207][193][196]> "v$:v$=v$+",s,r"
630 open2,8,2,v$:sysde,2,72,v$(1):close2:goto402
702 close1:close4:close5:close7:open1,4,10:print#1:close1
714 lr$=chr$(16)+chr$(49)+chr$(48)
716 open4,4:open5,4,6:open7,4,7:print#5,chr$(30)
722 ifr4%=1then742
724 ifr4%=2then732
726 ifr4%=3then340
732 p0=as+1:pz=p0+17:goto744
742 p0=1:pz=72
744 forp=p0topz:qp$=v$(p)
746 print#7,lr$;qp$:qp$="":next
752 print#5,chr$(36):print#4:print#7
756 close4:close5:close7:goto340
902 syscr,12,24:print"[155][215]eiter mit [212]aste[145][145][145]"
904 r$="":getr$:ifr$=""then904
906 return
914 print"[147][155][192][192] [197]ditor-[194]ildschirm [192][192][211]eite [192][192][218]eile [192][192]":gosub390
917 syscr,0,19:print"[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
918 printtab(6)"[198]1 = [205]enue [198]2 = zur@ck"
919 printtab(6)"[198]3 = [218]eile 18 [198]4 = [218]eile 1[158]":return